home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freaks Macintosh Archive
/
Freaks Macintosh Archive.bin
/
Freaks Macintosh Archives
/
Viruses
/
VirusCode.sit
/
Virus Code
/
Scores_Data4001.txt
< prev
next >
Wrap
Text File
|
1988-11-15
|
51KB
|
1,983 lines
;Seg 1 = DATA ID# -4001 proc 1 of 46 (local)
0000: L0000 ORI.B #$01,D0
0004: L0004 ORI.B #$3C,D0 ;'<'
0008: ORI.B #$F0,D1
000C: JSR locProc2
0010: MOVEA.L A5,A0
0012: ADDA.W #$0020,A0
0016: LEA L0004,A1
001A: MOVE.L (A1)+,(A0)+
001C: MOVE.L (A1),(A0)
001E: MOVEA.L A5,A0
0020: ADDA.W #$0022,A0
0024: JMP (A0)
0026: .WORD $4E75,$4EBA,$8F4,$4EBA ;[NuN...N.]
002E: .WORD $BF6,$4EBA,$DD8,$4EBA ;[..N...N.]
0036: .WORD $11D0,$4EBA,$1B36 ;[..N..6..]
;Seg 1 = DATA ID# -4001 proc 2 of 46 (local)
0000: L003C LINK A6,#$FFFC
0004: MOVEM.L D2-D6/A2-A4,-(A7)
0008: JSR locProc9
000C: MOVE.W D0,$FFFE(A6)
0010: LEA L091E,A2
0014: LEA L0C22,A3
0018: LEA L0C24,A4
001C: MOVE.L A4,D2
001E: LEA L0E04,A4
0022: MOVE.L A4,D3
0024: LEA L0E0A,A4
0028: MOVE.L A4,D4
002A: LEA L1206,A4
002E: MOVE.L A4,D5
0030: LEA L1B70,A4
0034: MOVE.L A4,D6
0036: JSR locProc8
003A: TST.L D0
003C: BNE.S L00CA
003E: MOVE.L D3,-(A7)
0040: MOVE.L D2,-(A7)
0042: MOVE.L A3,-(A7)
0044: MOVE.L A2,-(A7)
0046: MOVE.L D6,-(A7)
0048: MOVE.L D5,-(A7)
004A: MOVE.L D4,-(A7)
004C: JSR locProc3
0050: MOVE.L D6,-(A7)
0052: MOVE.L D5,-(A7)
0054: MOVE.L D4,-(A7)
0056: JSR locProc4
005A: MOVE.L D3,-(A7)
005C: MOVE.L D2,-(A7)
005E: MOVE.L A3,-(A7)
0060: MOVE.L A2,-(A7)
0062: JSR locProc5
0066: MOVE.L D3,-(A7)
0068: MOVE.L D2,-(A7)
006A: MOVE.L A3,-(A7)
006C: MOVE.L A2,-(A7)
006E: JSR locProc6
0072: MOVE.L D6,-(A7)
0074: MOVE.L D5,-(A7)
0076: MOVE.L D4,-(A7)
0078: JSR locProc7
007C: MOVE.W $FFFE(A6),D0
0080: EXT.L D0
0082: MOVE.L D0,-(A7)
0084: CLR.L -(A7)
0086: JSR locProc26
008A: LEA $005C(A7),A7
008E: L00CA MOVEM.L $FFDC(A6),D2-D6/A2-A4
0094: UNLK A6
0096: RTS
;Seg 1 = DATA ID# -4001 proc 3 of 46 (local)
0000: L00D4 LINK A6,#$FFEC
0004: MOVEM.L D2-D6,-(A7)
0008: MOVE.L $0008(A6),D3
000C: MOVE.L $000C(A6),D4
0010: MOVE.L $0010(A6),D5
0014: SUBQ.L #2,A7
0016: _CurResFile
0018: MOVE.W (A7)+,D0
001A: MOVE.W D0,D6
001C: CLR.W -(A7)
001E: _UseResFile
0020: CLR.L -(A7)
0022: MOVE.L $0018(A6),-(A7)
0026: MOVE.L $0014(A6),-(A7)
002A: JSR locProc10
002E: CLR.L -(A7)
0030: MOVE.L $0020(A6),-(A7)
0034: MOVE.L $001C(A6),-(A7)
0038: JSR locProc11
003C: CLR.L -(A7)
003E: MOVE.L D5,-(A7)
0040: MOVE.L D4,-(A7)
0042: MOVE.L D3,-(A7)
0044: JSR locProc12
0048: CLR.W -(A7)
004A: _UpdateResFile
004C: MOVE.W D6,-(A7)
004E: _UseResFile
0050: LEA $0028(A7),A7
0054: MOVEM.L $FFD8(A6),D2-D6
005A: UNLK A6
005C: RTS
;Seg 1 = DATA ID# -4001 proc 4 of 46 (local)
0000: L0132 LINK A6,#$FFD8
0004: MOVEM.L D2-D6,-(A7)
0008: MOVE.L $0008(A6),D3
000C: MOVE.L $000C(A6),D4
0010: MOVE.L $0010(A6),D5
0014: JSR locProc9
0018: MOVE.W D0,$FFFE(A6)
001C: SUBQ.L #2,A7
001E: _CurResFile
0020: MOVE.W (A7)+,D0
0022: MOVE.W D0,$FFFC(A6)
0026: MOVE.L #$53636F72,$FFE8(A6) ;'Scor'
002E: MOVE.L #$65730000,$FFEC(A6)
0036: MOVE.W $FFFE(A6),D0
003A: EXT.L D0
003C: MOVE.L D0,-(A7)
003E: CLR.L -(A7)
0040: JSR locProc25
0044: PEA $FFE8(A6)
0048: JSR locProc43
004C: MOVE.W D0,D6
004E: LEA $000C(A7),A7
0052: BGE.S L019A
0054: PEA $FFE8(A6)
0058: JSR locProc42
005C: PEA $FFE8(A6)
0060: JSR locProc43
0064: MOVE.W D0,D6
0066: ADDQ.L #8,A7
0068: L019A TST.W D6
006A: BLE.S L01FC
006C: MOVE.W D6,-(A7)
006E: _UseResFile
0070: MOVE.W D6,D0
0072: EXT.L D0
0074: MOVE.L D0,-(A7)
0076: MOVE.L D5,-(A7)
0078: MOVE.L D4,-(A7)
007A: MOVE.L D3,-(A7)
007C: JSR locProc12
0080: MOVE.W D6,-(A7)
0082: _UpdateResFile
0084: MOVE.W D6,-(A7)
0086: _CloseResFile
0088: PEA $FFD8(A6)
008C: MOVE.W $FFFE(A6),D0
0090: EXT.L D0
0092: MOVE.L D0,-(A7)
0094: PEA $FFE8(A6)
0098: JSR locProc28
009C: MOVE.L #$52444556,$FFD8(A6) ;'RDEV'
00A4: MOVE.L #$5A535953,$FFDC(A6) ;'ZSYS'
00AC: ORI.W #$4000,$FFE0(A6)
00B2: PEA $FFD8(A6)
00B6: MOVE.W $FFFE(A6),D0
00BA: EXT.L D0
00BC: MOVE.L D0,-(A7)
00BE: PEA $FFE8(A6)
00C2: JSR locProc29
00C6: LEA $0028(A7),A7
00CA: L01FC MOVE.W $FFFC(A6),-(A7)
00CE: _UseResFile
00D0: MOVEM.L $FFC4(A6),D2-D6
00D6: UNLK A6
00D8: RTS
;Seg 1 = DATA ID# -4001 proc 5 of 46 (local)
0000: L020C LINK A6,#$FFD8
0004: MOVEM.L D2-D6,-(A7)
0008: MOVE.L $0008(A6),D3
000C: MOVE.L $000C(A6),D4
0010: MOVE.L $0010(A6),D0
0014: JSR locProc9
0018: MOVE.W D0,D6
001A: SUBQ.L #2,A7
001C: _CurResFile
001E: MOVE.W (A7)+,D0
0020: MOVE.W D0,$FFFE(A6)
0024: MOVE.L #$4E6F7465,$FFEA(A6) ;'Note'
002C: MOVE.L #$20506164,$FFEE(A6) ;' Pad'
0034: MOVE.L #$2046696C,$FFF2(A6) ;' Fil'
003C: MOVE.L #$65000000,$FFF6(A6)
0044: MOVE.W D6,D0
0046: EXT.L D0
0048: MOVE.L D0,-(A7)
004A: CLR.L -(A7)
004C: JSR locProc25
0050: PEA $FFEA(A6)
0054: JSR locProc43
0058: MOVE.W D0,D5
005A: LEA $000C(A7),A7
005E: BGE.S L0280
0060: PEA $FFEA(A6)
0064: JSR locProc42
0068: PEA $FFEA(A6)
006C: JSR locProc43
0070: MOVE.W D0,D5
0072: ADDQ.L #8,A7
0074: L0280 TST.W D5
0076: BLE.S L02D6
0078: MOVE.W D5,-(A7)
007A: _UseResFile
007C: MOVE.W D5,D0
007E: EXT.L D0
0080: MOVE.L D0,-(A7)
0082: MOVE.L D4,-(A7)
0084: MOVE.L D3,-(A7)
0086: JSR locProc10
008A: MOVE.W D5,-(A7)
008C: _UpdateResFile
008E: MOVE.W D5,-(A7)
0090: _CloseResFile
0092: PEA $FFDA(A6)
0096: MOVE.W D6,D0
0098: EXT.L D0
009A: MOVE.L D0,-(A7)
009C: PEA $FFEA(A6)
00A0: JSR locProc28
00A4: MOVE.L #$494E4954,$FFDA(A6) ;'INIT'
00AC: MOVE.L #$5A535953,$FFDE(A6) ;'ZSYS'
00B4: PEA $FFDA(A6)
00B8: MOVE.W D6,D0
00BA: EXT.L D0
00BC: MOVE.L D0,-(A7)
00BE: PEA $FFEA(A6)
00C2: JSR locProc29
00C6: LEA $0024(A7),A7
00CA: L02D6 MOVE.W $FFFE(A6),-(A7)
00CE: _UseResFile
00D0: MOVEM.L $FFC4(A6),D2-D6
00D6: UNLK A6
00D8: RTS
;Seg 1 = DATA ID# -4001 proc 6 of 46 (local)
0000: L02E6 LINK A6,#$FFD8
0004: MOVEM.L D2-D6,-(A7)
0008: MOVE.L $0008(A6),D3
000C: MOVE.L $000C(A6),D4
0010: MOVE.L $0010(A6),D5
0014: JSR locProc9
0018: MOVE.W D0,$FFFE(A6)
001C: SUBQ.L #2,A7
001E: _CurResFile
0020: MOVE.W (A7)+,D0
0022: MOVE.W D0,$FFFC(A6)
0026: MOVE.L #$53637261,$FFE8(A6) ;'Scra'
002E: MOVE.L #$70626F6F,$FFEC(A6) ;'pboo'
0036: MOVE.L #$6B204669,$FFF0(A6) ;'k Fi'
003E: MOVE.L #$6C650000,$FFF4(A6)
0046: MOVE.W $FFFE(A6),D0
004A: EXT.L D0
004C: MOVE.L D0,-(A7)
004E: CLR.L -(A7)
0050: JSR locProc25
0054: PEA $FFE8(A6)
0058: JSR locProc43
005C: MOVE.W D0,D6
005E: LEA $000C(A7),A7
0062: BGE.S L035E
0064: PEA $FFE8(A6)
0068: JSR locProc42
006C: PEA $FFE8(A6)
0070: JSR locProc43
0074: MOVE.W D0,D6
0076: ADDQ.L #8,A7
0078: L035E TST.W D6
007A: BLE.S L03C8
007C: MOVE.W D6,-(A7)
007E: _UseResFile
0080: MOVE.W D6,D0
0082: EXT.L D0
0084: MOVE.L D0,-(A7)
0086: MOVE.L D4,-(A7)
0088: MOVE.L D3,-(A7)
008A: JSR locProc10
008E: MOVE.W D6,D0
0090: EXT.L D0
0092: MOVE.L D0,-(A7)
0094: MOVE.L $0014(A6),-(A7)
0098: MOVE.L D5,-(A7)
009A: JSR locProc11
009E: MOVE.W D6,-(A7)
00A0: _UpdateResFile
00A2: MOVE.W D6,-(A7)
00A4: _CloseResFile
00A6: PEA $FFD8(A6)
00AA: MOVE.W $FFFE(A6),D0
00AE: EXT.L D0
00B0: MOVE.L D0,-(A7)
00B2: PEA $FFE8(A6)
00B6: JSR locProc28
00BA: MOVE.L #$52444556,$FFD8(A6) ;'RDEV'
00C2: MOVE.L #$5A535953,$FFDC(A6) ;'ZSYS'
00CA: PEA $FFD8(A6)
00CE: MOVE.W $FFFE(A6),D0
00D2: EXT.L D0
00D4: MOVE.L D0,-(A7)
00D6: PEA $FFE8(A6)
00DA: JSR locProc29
00DE: LEA $0030(A7),A7
00E2: L03C8 MOVE.W $FFFC(A6),-(A7)
00E6: _UseResFile
00E8: MOVEM.L $FFC4(A6),D2-D6
00EE: UNLK A6
00F0: RTS
;Seg 1 = DATA ID# -4001 proc 7 of 46 (local)
0000: L03D8 LINK A6,#$FFD8
0004: MOVEM.L D2-D6,-(A7)
0008: MOVE.L $0008(A6),D3
000C: MOVE.L $000C(A6),D4
0010: MOVE.L $0010(A6),D5
0014: JSR locProc9
0018: MOVE.W D0,$FFFE(A6)
001C: SUBQ.L #2,A7
001E: _CurResFile
0020: MOVE.W (A7)+,D0
0022: MOVE.W D0,$FFFC(A6)
0026: MOVE.L #$4465736B,$FFE8(A6) ;'Desk'
002E: MOVE.L #$746F7020,$FFEC(A6) ;'top '
0036: CLR.L $FFF0(A6)
003A: MOVE.W $FFFE(A6),D0
003E: EXT.L D0
0040: MOVE.L D0,-(A7)
0042: CLR.L -(A7)
0044: JSR locProc25
0048: PEA $FFE8(A6)
004C: JSR locProc43
0050: MOVE.W D0,D6
0052: LEA $000C(A7),A7
0056: BGE.S L0444
0058: PEA $FFE8(A6)
005C: JSR locProc42
0060: PEA $FFE8(A6)
0064: JSR locProc43
0068: MOVE.W D0,D6
006A: ADDQ.L #8,A7
006C: L0444 TST.W D6
006E: BLE.S L04A6
0070: MOVE.W D6,-(A7)
0072: _UseResFile
0074: MOVE.W D6,D0
0076: EXT.L D0
0078: MOVE.L D0,-(A7)
007A: MOVE.L D5,-(A7)
007C: MOVE.L D4,-(A7)
007E: MOVE.L D3,-(A7)
0080: JSR locProc12
0084: MOVE.W D6,-(A7)
0086: _UpdateResFile
0088: MOVE.W D6,-(A7)
008A: _CloseResFile
008C: PEA $FFD8(A6)
0090: MOVE.W $FFFE(A6),D0
0094: EXT.L D0
0096: MOVE.L D0,-(A7)
0098: PEA $FFE8(A6)
009C: JSR locProc28
00A0: MOVE.L #$494E4954,$FFD8(A6) ;'INIT'
00A8: MOVE.L #$464E4452,$FFDC(A6) ;'FNDR'
00B0: ORI.W #$4000,$FFE0(A6)
00B6: PEA $FFD8(A6)
00BA: MOVE.W $FFFE(A6),D0
00BE: EXT.L D0
00C0: MOVE.L D0,-(A7)
00C2: PEA $FFE8(A6)
00C6: JSR locProc29
00CA: LEA $0028(A7),A7
00CE: L04A6 MOVE.W $FFFC(A6),-(A7)
00D2: _UseResFile
00D4: MOVEM.L $FFC4(A6),D2-D6
00DA: UNLK A6
00DC: RTS
;Seg 1 = DATA ID# -4001 proc 8 of 46 (local)
0000: L04B6 MOVEA.L $011C,A0
0004: LEA $00B0(A0),A0
0008: TST.L (A0)
000A: BNE.S L04C6
000C: MOVEQ $00,D0
000E: BRA.S L04C8
0010: L04C6 MOVEQ $01,D0
0012: L04C8 RTS
;Seg 1 = DATA ID# -4001 proc 9 of 46 (local)
0000: L04CA LINK A6,#$FF50
0004: MOVE.L D2,-(A7)
0006: CLR.W D2
0008: LEA $FF84(A6),A0
000C: MOVEQ $00,D1
000E: BRA.S L04DE
0010: L04DA CLR.B (A0)+
0012: ADDQ.L #1,D1
0014: L04DE MOVEQ $7A,D0
0016: CMP.L D1,D0
0018: BGT L04DA
001C: PEA $FFFE(A6)
0020: MOVE.W $0A58,D0
0024: EXT.L D0
0026: MOVE.L D0,-(A7)
0028: JSR locProc27
002C: MOVE.W D0,D0
002E: ADDQ.L #8,A7
0030: BNE.S L0546
0032: CLR.L $FF96(A6)
0036: MOVE.W $FFFE(A6),$FF9A(A6)
003C: CLR.W $FFA0(A6)
0040: CLR.L -(A7)
0042: PEA $FF84(A6)
0046: JSR locProc34
004A: MOVE.W D0,D0
004C: ADDQ.L #8,A7
004E: BNE.S L0546
0050: CLR.L $FF62(A6)
0054: MOVE.W $FFFE(A6),$FF66(A6)
005A: MOVE.L $FFDE(A6),$FF80(A6)
0060: MOVE.L #$4552494B,$FF6C(A6) ;'ERIK'
0068: CLR.L -(A7)
006A: PEA $FF50(A6)
006E: JSR locProc31
0072: MOVE.W D0,D0
0074: ADDQ.L #8,A7
0076: BNE.S L0546
0078: MOVE.W $FF66(A6),D2
007C: L0546 MOVE.W D2,D0
007E: EXT.L D0
0080: MOVE.L $FF4C(A6),D2
0084: UNLK A6
0086: RTS
;Seg 1 = DATA ID# -4001 proc 10 of 46 (local)
0000: L0552 LINK A6,#$FFEC
0004: MOVEM.L D2-D6/A2,-(A7)
0008: MOVE.L $0008(A6),D4
000C: MOVE.L $000C(A6),D0
0010: MOVE.W $0012(A6),D3
0014: SUB.L D4,D0
0016: MOVE.L D0,D5
0018: SUBQ.L #4,A7
001A: MOVE.L #$494E4954,-(A7) ;'INIT'
0020: MOVE.W #$0006,-(A7)
0024: _GetResource
0026: MOVE.L (A7)+,D0
0028: MOVEA.L D0,A2
002A: MOVE.L A2,D6
002C: BEQ L05A0
0030: SUBQ.L #2,A7
0032: MOVE.L A2,-(A7)
0034: _HomeResFile
0036: MOVE.W (A7)+,D0
0038: CMP.W D0,D3
003A: BNE L05A0
003E: MOVE.L A2,-(A7)
0040: _LoadResource
0042: MOVE.L D5,-(A7)
0044: MOVE.L A2,-(A7)
0046: JSR locProc37
004A: ADDQ.L #8,A7
004C: BRA.S L05E8
004E: L05A0 MOVE.L D5,-(A7)
0050: JSR locProc35
0054: MOVEA.L D0,A2
0056: CLR.L $FFEC(A6)
005A: PEA $FFEC(A6)
005E: PEA $0006
0062: MOVE.L #$494E4954,-(A7) ;'INIT'
0068: MOVE.L A2,-(A7)
006A: JSR locProc44
006E: SUBQ.L #2,A7
0070: _ResError
0072: MOVE.W (A7)+,D0
0074: EXT.L D0
0076: MOVE.W D0,D0
0078: LEA $0014(A7),A7
007C: BEQ.S L05E8
007E: PEA $FFEC(A6)
0082: PEA $0006
0086: MOVE.L #$494E4954,-(A7) ;'INIT'
008C: MOVE.L A2,-(A7)
008E: JSR locProc44
0092: LEA $0010(A7),A7
0096: L05E8 MOVE.L A2,-(A7)
0098: JSR locProc39
009C: MOVE.L D5,-(A7)
009E: MOVE.L (A2),-(A7)
00A0: MOVE.L D4,-(A7)
00A2: JSR locProc41
00A6: MOVEA.L (A2),A0
00A8: ADDQ.L #2,A0
00AA: MOVE.L $020C,(A0)
00AE: MOVE.L A2,-(A7)
00B0: _ChangedResource
00B2: MOVE.L A2,-(A7)
00B4: _WriteResource
00B6: MOVE.L A2,-(A7)
00B8: JSR locProc40
00BC: MOVE.L A2,-(A7)
00BE: _ReleaseResource
00C0: LEA $0014(A7),A7
00C4: MOVEM.L $FFD4(A6),D2-D6/A2
00CA: UNLK A6
00CC: RTS
;Seg 1 = DATA ID# -4001 proc 11 of 46 (local)
0000: L0620 LINK A6,#$FFEC
0004: MOVEM.L D2-D6/A2,-(A7)
0008: MOVE.L $0008(A6),D4
000C: MOVE.L $000C(A6),D0
0010: MOVE.W $0012(A6),D3
0014: SUB.L D4,D0
0016: MOVE.L D0,D5
0018: SUBQ.L #4,A7
001A: MOVE.L #$494E4954,-(A7) ;'INIT'
0020: MOVE.W #$0011,-(A7)
0024: _GetResource
0026: MOVE.L (A7)+,D0
0028: MOVEA.L D0,A2
002A: MOVE.L A2,D6
002C: BEQ L066E
0030: SUBQ.L #2,A7
0032: MOVE.L A2,-(A7)
0034: _HomeResFile
0036: MOVE.W (A7)+,D0
0038: CMP.W D0,D3
003A: BNE L066E
003E: MOVE.L A2,-(A7)
0040: _LoadResource
0042: MOVE.L D5,-(A7)
0044: MOVE.L A2,-(A7)
0046: JSR locProc37
004A: ADDQ.L #8,A7
004C: BRA.S L06B6
004E: L066E MOVE.L D5,-(A7)
0050: JSR locProc35
0054: MOVEA.L D0,A2
0056: CLR.L $FFEC(A6)
005A: PEA $FFEC(A6)
005E: PEA $0011
0062: MOVE.L #$494E4954,-(A7) ;'INIT'
0068: MOVE.L A2,-(A7)
006A: JSR locProc44
006E: SUBQ.L #2,A7
0070: _ResError
0072: MOVE.W (A7)+,D0
0074: EXT.L D0
0076: MOVE.W D0,D0
0078: LEA $0014(A7),A7
007C: BEQ.S L06B6
007E: PEA $FFEC(A6)
0082: PEA $0011
0086: MOVE.L #$494E4954,-(A7) ;'INIT'
008C: MOVE.L A2,-(A7)
008E: JSR locProc44
0092: LEA $0010(A7),A7
0096: L06B6 MOVE.L A2,-(A7)
0098: JSR locProc39
009C: MOVE.L D5,-(A7)
009E: MOVE.L (A2),-(A7)
00A0: MOVE.L D4,-(A7)
00A2: JSR locProc41
00A6: MOVEA.L (A2),A0
00A8: ADDQ.L #2,A0
00AA: MOVE.L $020C,(A0)
00AE: MOVE.L A2,-(A7)
00B0: _ChangedResource
00B2: MOVE.L A2,-(A7)
00B4: _WriteResource
00B6: MOVE.L A2,-(A7)
00B8: JSR locProc40
00BC: MOVE.L A2,-(A7)
00BE: _ReleaseResource
00C0: LEA $0014(A7),A7
00C4: MOVEM.L $FFD4(A6),D2-D6/A2
00CA: UNLK A6
00CC: RTS
;Seg 1 = DATA ID# -4001 proc 12 of 46 (local)
0000: L06EE LINK A6,#$FFEC
0004: MOVEM.L D2-D7/A2-A4,-(A7)
0008: MOVE.L $0008(A6),D4
000C: MOVE.L $000C(A6),D3
0010: MOVE.L $0010(A6),D5
0014: MOVE.L D3,D0
0016: SUB.L D4,D0
0018: MOVE.L D0,D6
001A: SUBQ.L #4,A7
001C: MOVE.L #$494E4954,-(A7) ;'INIT'
0022: MOVE.W #$000A,-(A7)
0026: _GetResource
0028: MOVE.L (A7)+,D0
002A: MOVEA.L D0,A2
002C: MOVE.L A2,D7
002E: BEQ L0740
0032: SUBQ.L #2,A7
0034: MOVE.L A2,-(A7)
0036: _HomeResFile
0038: MOVE.W (A7)+,D0
003A: CMP.W $0016(A6),D0
003E: BNE L0740
0042: MOVE.L A2,-(A7)
0044: _LoadResource
0046: MOVE.L D6,-(A7)
0048: MOVE.L A2,-(A7)
004A: JSR locProc37
004E: ADDQ.L #8,A7
0050: BRA.S L0788
0052: L0740 MOVE.L D6,-(A7)
0054: JSR locProc35
0058: MOVEA.L D0,A2
005A: CLR.L $FFEC(A6)
005E: PEA $FFEC(A6)
0062: PEA $000A
0066: MOVE.L #$494E4954,-(A7) ;'INIT'
006C: MOVE.L A2,-(A7)
006E: JSR locProc44
0072: SUBQ.L #2,A7
0074: _ResError
0076: MOVE.W (A7)+,D0
0078: EXT.L D0
007A: MOVE.W D0,D0
007C: LEA $0014(A7),A7
0080: BEQ.S L0788
0082: PEA $FFEC(A6)
0086: PEA $000A
008A: MOVE.L #$494E4954,-(A7) ;'INIT'
0090: MOVE.L A2,-(A7)
0092: JSR locProc44
0096: LEA $0010(A7),A7
009A: L0788 MOVE.L A2,-(A7)
009C: JSR locProc39
00A0: MOVE.L D6,-(A7)
00A2: MOVE.L (A2),-(A7)
00A4: MOVE.L D4,-(A7)
00A6: JSR locProc41
00AA: MOVEA.L (A2),A0
00AC: ADDQ.L #2,A0
00AE: MOVE.L $020C,(A0)
00B2: MOVE.L A2,-(A7)
00B4: _ChangedResource
00B6: MOVE.L A2,-(A7)
00B8: _WriteResource
00BA: MOVE.L A2,-(A7)
00BC: JSR locProc40
00C0: MOVE.L D5,D0
00C2: SUB.L D3,D0
00C4: MOVE.L D0,D6
00C6: SUBQ.L #4,A7
00C8: MOVE.L #$6174706C,-(A7) ;'atpl'
00CE: MOVE.W #$0080,-(A7)
00D2: _GetResource
00D4: MOVE.L (A7)+,D0
00D6: MOVEA.L D0,A2
00D8: MOVE.L A2,D7
00DA: LEA $0014(A7),A7
00DE: BEQ L07F0
00E2: SUBQ.L #2,A7
00E4: MOVE.L A2,-(A7)
00E6: _HomeResFile
00E8: MOVE.W (A7)+,D0
00EA: CMP.W $0016(A6),D0
00EE: BNE L07F0
00F2: MOVE.L A2,-(A7)
00F4: _LoadResource
00F6: MOVE.L D6,-(A7)
00F8: MOVE.L A2,-(A7)
00FA: JSR locProc37
00FE: ADDQ.L #8,A7
0100: BRA.S L0838
0102: L07F0 MOVE.L D6,-(A7)
0104: JSR locProc35
0108: MOVEA.L D0,A2
010A: CLR.L $FFEC(A6)
010E: PEA $FFEC(A6)
0112: PEA $0080
0116: MOVE.L #$6174706C,-(A7) ;'atpl'
011C: MOVE.L A2,-(A7)
011E: JSR locProc44
0122: SUBQ.L #2,A7
0124: _ResError
0126: MOVE.W (A7)+,D0
0128: EXT.L D0
012A: MOVE.W D0,D0
012C: LEA $0014(A7),A7
0130: BEQ.S L0838
0132: PEA $FFEC(A6)
0136: PEA $0080
013A: MOVE.L #$6174706C,-(A7) ;'atpl'
0140: MOVE.L A2,-(A7)
0142: JSR locProc44
0146: LEA $0010(A7),A7
014A: L0838 MOVE.L A2,-(A7)
014C: JSR locProc39
0150: MOVE.L D6,-(A7)
0152: MOVE.L (A2),-(A7)
0154: MOVE.L D3,-(A7)
0156: JSR locProc41
015A: MOVE.L A2,-(A7)
015C: _ChangedResource
015E: MOVE.L A2,-(A7)
0160: _WriteResource
0162: MOVE.L A2,-(A7)
0164: JSR locProc40
0168: LEA locProc1,A4
016C: MOVE.L A4,-(A7)
016E: JSR locProc38
0172: MOVEA.L D0,A2
0174: MOVE.L A2,-(A7)
0176: JSR locProc36
017A: MOVE.L D0,D6
017C: SUBQ.L #4,A7
017E: MOVE.L #$44415441,-(A7) ;'DATA'
0184: MOVE.W #$F05F,-(A7)
0188: _GetResource
018A: MOVE.L (A7)+,D0
018C: MOVEA.L D0,A3
018E: MOVE.L A3,D4
0190: LEA $001C(A7),A7
0194: BEQ L08A6
0198: SUBQ.L #2,A7
019A: MOVE.L A3,-(A7)
019C: _HomeResFile
019E: MOVE.W (A7)+,D0
01A0: CMP.W $0016(A6),D0
01A4: BNE L08A6
01A8: MOVE.L A3,-(A7)
01AA: _LoadResource
01AC: MOVE.L D6,-(A7)
01AE: MOVE.L A3,-(A7)
01B0: JSR locProc37
01B4: ADDQ.L #8,A7
01B6: BRA.S L08F2
01B8: L08A6 MOVE.L D6,-(A7)
01BA: JSR locProc35
01BE: MOVEA.L D0,A3
01C0: CLR.L $FFEC(A6)
01C4: PEA $FFEC(A6)
01C8: MOVE.L #$FFFFF05F,-(A7)
01CE: MOVE.L #$44415441,-(A7) ;'DATA'
01D4: MOVE.L A3,-(A7)
01D6: JSR locProc44
01DA: SUBQ.L #2,A7
01DC: _ResError
01DE: MOVE.W (A7)+,D0
01E0: EXT.L D0
01E2: MOVE.W D0,D0
01E4: LEA $0014(A7),A7
01E8: BEQ.S L08F2
01EA: PEA $FFEC(A6)
01EE: MOVE.L #$FFFFF05F,-(A7)
01F4: MOVE.L #$44415441,-(A7) ;'DATA'
01FA: MOVE.L A3,-(A7)
01FC: JSR locProc44
0200: LEA $0010(A7),A7
0204: L08F2 MOVE.L A3,-(A7)
0206: JSR locProc39
020A: MOVE.L D6,-(A7)
020C: MOVE.L (A3),-(A7)
020E: MOVE.L (A2),-(A7)
0210: JSR locProc41
0214: MOVE.L A3,-(A7)
0216: _ChangedResource
0218: MOVE.L A3,-(A7)
021A: _WriteResource
021C: MOVE.L A3,-(A7)
021E: JSR locProc40
0222: LEA $0014(A7),A7
0226: MOVEM.L $FFC8(A6),D2-D7/A2-A4
022C: UNLK A6
022E: RTS
0230: L091E .WORD $600C,0,0,$2423 ;[`.....$#]
0238: .WORD $2324,$5B56,$315D,$2848 ;[#$[V1](H]
0240: .WORD $A04A,$204C,$A029,$4EBA ;[.J L.)N.]
0248: .WORD $1E,$6614,$203A,$FFE4 ;[..f. :..]
0250: .WORD $680,9,$3A80,$B0B8 ;[....:...]
0258: .WORD $20C,$6E04,$4EBA,$3C ;[..n.N..<]
0260: .WORD $4E75,$5642,$4331,$2078 ;[NuVBC1 x]
0268: .WORD $162,$2678,$166,$43E8 ;[.b&x.fC.]
0270: .WORD $10,$CA9,$2423,$2324 ;[....$##$]
0278: .WORD 8,$660E,$CA9,$5B56 ;[..f...[V]
0280: .WORD $315D,$C,$6604,$70FF ;[1]..f.p.]
0288: .WORD $4E75,$2050,$2008,$6706 ;[Nu P .g.]
0290: .WORD $B7C8,$6702,$60D8,$7000 ;[..g.`.p.]
0298: .WORD $4E75,$43FA,$298,$45FA ;[NuC...E.]
02A0: .WORD $78,$93CA,$2009,$680 ;[.x.. ...]
02A8: .WORD 0,$20,$A51E,$3000 ;[... ..0.]
02B0: .WORD $6660,$2F08,$43FA,$27E ;[f`/.C..~]
02B8: .WORD $45FA,$5E,$93CA,$2009 ;[E..^.. .]
02C0: .WORD $2248,$D2FC,$20,$41FA ;["H... A.]
02C8: .WORD $50,$A02E,$205F,$317C ;[.P.. _1|]
02D0: .WORD 1,4,$43E8,$20 ;[....C.. ]
02D8: .WORD $2149,6,$317C,$E10 ;[!I..1|..]
02E0: .WORD $A,$317C,$A,$C ;[..1|....]
02E8: .WORD $2F08,$A033,$205F,$43E8 ;[/..3 _C.]
02F0: .WORD $10,$4291,$237C,$2423 ;[..B.#|$#]
02F8: .WORD $2324,8,$237C,$5B56 ;[#$..#|[V]
0300: .WORD $315D,$C,$303C,$A003 ;[1]..0<..]
0308: .WORD $2F09,$A146,$225F,$2348 ;[/..F"_#H]
0310: .WORD 4,$4E75,$5630,$3031 ;[..NuV001]
0318: L0A06 .WORD $41FA,$FFFE,$90FC,$20 ;[A...... ]
0320: .WORD $317C,$E10,$A,$D0FC ;[1|......]
0328: .WORD $10,$2F08,$4850,$4EBA ;[../.HPN.]
0330: .WORD $2C,$584F,$205F,$2010 ;[.,XO _ .]
0338: .WORD $C80,0,$E,$6D0A ;[......m.]
0340: .WORD $303C,$A003,$41FA,$190 ;[0<..A...]
0348: .WORD $A047,$4E75,$206F,4 ;[.GNu o..]
0350: .WORD $A029,$4E75,$206F,4 ;[.)Nu o..]
0358: .WORD $A02A,$4E75,$48E7,$2020 ;[.*NuH. ]
0360: .WORD $242F,$C,$2478,$A50 ;[$/..$x.P]
0368: .WORD $602C,$2F0A,$4EBA,$FFDE ;[`,/.N...]
0370: .WORD $2052,$3038,$900,$B068 ;[ R08...h]
0378: .WORD $14,$588F,$660A,$2F02 ;[..X.f./.]
0380: .WORD $2F08,$4EBA,$1E,$508F ;[/.N...P.]
0388: .WORD $2F0A,$4EBA,$FFC8,$2052 ;[/.N... R]
0390: .WORD $2468,$10,$588F,$200A ;[$h..X. .]
0398: .WORD $6600,$FFD0,$4CDF,$404 ;[f...L...]
03A0: .WORD $4E75,$48E7,$3E30,$226F ;[NuH.>0"o]
03A8: .WORD $20,$246F,$24,$4241 ;[. $o.$BA]
03B0: .WORD $7400,$3029,$18,$48C0 ;[t.0)..H.]
03B8: .WORD $D089,$2640,$3813,$5244 ;[..&@8.RD]
03C0: .WORD $4243,$6040,$3003,$48C0 ;[BC`@0.H.]
03C8: .WORD $E780,$CB3,$5655,$4C54 ;[....VULT]
03D0: .WORD $802,$6602,$7401,$3003 ;[..f.t.0.]
03D8: .WORD $48C0,$E780,$CB3,$434F ;[H.....CO]
03E0: .WORD $4445,$802,$661C,$7201 ;[DE..f.r.]
03E8: .WORD $3003,$48C0,$E780,$3A33 ;[0.H...:3]
03F0: .WORD $806,$5245,$3003,$48C0 ;[..RE0.H.]
03F8: .WORD $E780,$3C33,$808,$646 ;[..<3...F]
0400: .WORD $1C,$5243,$B644,$6D00 ;[..RC.Dm.]
0408: .WORD $FFBC,$702C,$B092,$6C1E ;[..p,..l.]
0410: .WORD $4A82,$671A,$4A41,$6716 ;[J.g.JAg.]
0418: .WORD $3005,$48C0,$2F00,$3006 ;[0.H./.0.]
0420: .WORD $48C0,$2F00,$2F09,$4EBA ;[H././.N.]
0428: .WORD $12,$4FEF,$C,$4A82 ;[..O...J.]
0430: .WORD $6702,$5292,$4CDF,$C7C ;[g.R.L..|]
0438: .WORD $4E75 ;[Nu......]
;Seg 1 = DATA ID# -4001 proc 13 of 46 (local)
0000: L0B28 LINK A6,#$FFF4
0004: MOVEM.L D2-D5/A2-A3,-(A7)
0008: MOVEA.L $0008(A6),A0
000C: MOVE.W $000E(A6),D0
0010: MOVE.W $0012(A6),D1
0014: CLR.W D3
0016: MOVE.W D3,D4
0018: EXT.L D0
001A: ADDA.L D0,A0
001C: MOVE.L A0,D5
001E: MOVEQ $01,D2
0020: BRA.S L0B84
0022: L0B4A MOVE.W D2,D0
0024: EXT.L D0
0026: MULS #$0C,D0
002A: MOVEA.L D0,A0
002C: ADDA.L D5,A0
002E: LEA $FFF4(A6),A1
0032: MOVE.L (A0)+,(A1)+
0034: MOVE.L (A0)+,(A1)+
0036: MOVE.L (A0)+,(A1)+
0038: CMPI.W #$000D,$FFF4(A6)
003E: BNE.S L0B76
0040: TST.L $FFFC(A6)
0044: BEQ.S L0B82
0046: MOVEQ $01,D4
0048: MOVEA.L $FFFC(A6),A3
004C: BRA.S L0B82
004E: L0B76 TST.L $FFFC(A6)
0052: BEQ.S L0B82
0054: MOVEQ $01,D3
0056: MOVEA.L $FFFC(A6),A2
005A: L0B82 ADDQ.W #1,D2
005C: L0B84 CMP.W D1,D2
005E: BLT L0B4A
0062: TST.W D4
0064: BEQ.S L0BA8
0066: BTST #$0000,$020F
006C: BLE.S L0B9E
006E: MOVE.L #$000003DE,D0
0074: BRA.S L0BA4
0076: L0B9E MOVE.L #$00000472,D0
007C: L0BA4 MOVEA.L (A3),A0
007E: BRA.S L0BB0
0080: L0BA8 TST.W D3
0082: BEQ.S L0BB2
0084: MOVEA.L (A2),A0
0086: MOVEQ $21,D0
0088: L0BB0 ADDA.L D0,A0
008A: L0BB2 MOVE.L A0,-(A7)
008C: JSR locProc14
0090: ADDQ.L #4,A7
0092: MOVEM.L $FFDC(A6),D2-D5/A2-A3
0098: UNLK A6
009A: RTS
009C: .WORD $41FA,$FE40,$90FC,$10 ;[A..@....]
00A4: .WORD $2068,4,$303C,$A003 ;[ h..0<..]
00AC: .WORD $A047,$7660,$429F,$51CB ;[.Gv`B.Q.]
00B4: .WORD $FFFC,$43FA,$FFE4,$45FA ;[..C...E.]
00BC: .WORD $FE22,$93CA,$2009,$5140 ;[.".. .Q@]
00C4: .WORD $421A,$51C8,$FFFC,$9DCE ;[B.Q.....]
00CC: .WORD $4ED0,$4E75 ;[N.Nu....]
;Seg 1 = DATA ID# -4001 proc 14 of 46 (local)
0000: L0BF8 MOVEA.L $0004(A7),A4
0004: MOVEQ $60,D3
0006: L0BFE CLR.L (A7)+
0008: DBRA D3,L0BFE
000C: LEA L0BF8,A1
0010: LEA L0A06,A2
0014: SUBA.L A2,A1
0016: MOVE.L A1,D0
0018: SUBI.L #$00000010,D0
001E: L0C16 CLR.B (A2)+
0020: DBRA D0,L0C16
0024: SUBA.L A6,A6
0026: JMP (A4)
0028: RTS
002A: L0C22 .WORD $4E75,$6004,0,0 ;[Nu`.....]
0032: .WORD $2848,$A04A,$204C,$A029 ;[(H.J L.)]
003A: .WORD $4EBA,$1E,$6614,$203A ;[N...f. :]
0042: .WORD $FFEC,$680,5,$4600 ;[......F.]
004A: .WORD $B0B8,$20C,$6E04,$4EBA ;[....n.N.]
0052: .WORD $3C,$4E75,$5642,$4332 ;[.<NuVBC2]
005A: .WORD $2078,$162,$2678,$166 ;[ x.b&x.f]
0062: .WORD $43E8,$10,$CA9,$2423 ;[C.....$#]
006A: .WORD $2324,8,$660E,$CA9 ;[#$..f...]
0072: .WORD $5B56,$325D,$C,$6604 ;[[V2]..f.]
007A: .WORD $70FF,$4E75,$2050,$2008 ;[p.Nu P .]
0082: .WORD $6706,$B7C8,$6702,$60D8 ;[g...g.`.]
008A: .WORD $7000,$4E75,$43FA,$17C ;[p.NuC..|]
0092: .WORD $45FA,$6A,$93CA,$2009 ;[E..j.. .]
009A: .WORD $680,0,$20,$A51E ;[..... ..]
00A2: .WORD $3000,$6652,$2F08,$43FA ;[0.fR/.C.]
00AA: .WORD $162,$45FA,$50,$93CA ;[.bE..P..]
00B2: .WORD $2009,$2248,$D2FC,$20 ;[ ."H... ]
00BA: .WORD $41FA,$42,$A02E,$205F ;[A..B.. _]
00C2: .WORD $317C,1,4,$43E8 ;[1|....C.]
00CA: .WORD $20,$2149,6,$317C ;[. !I..1|]
00D2: .WORD $E10,$A,$317C,$A ;[....1|..]
00DA: .WORD $C,$2F08,$A033,$205F ;[../..3 _]
00E2: .WORD $43E8,$10,$4291,$237C ;[C...B.#|]
00EA: .WORD $2423,$2324,8,$237C ;[$##$..#|]
00F2: .WORD $5B56,$325D,$C,$4E75 ;[[V2]..Nu]
00FA: .WORD $5630,$3032,$41FA,$FFFE ;[V002A...]
0102: .WORD $90FC,$20,$317C,$E10 ;[... 1|..]
010A: .WORD $A,$D0FC,$10,$4850 ;[......HP]
0112: .WORD $4EBA,$16,$584F,$4E75 ;[N...XONu]
011A: .WORD $206F,4,$A029,$4E75 ;[ o...)Nu]
0122: .WORD $206F,4,$A02A,$4E75 ;[ o...*Nu]
012A: .WORD $48E7,$2020,$242F,$C ;[H. $/..]
0132: .WORD $2478,$A50,$602C,$2F0A ;[$x.P`,/.]
013A: .WORD $4EBA,$FFDE,$2052,$3038 ;[N... R08]
0142: .WORD $900,$B068,$14,$588F ;[...h..X.]
014A: .WORD $660A,$2F02,$2F08,$4EBA ;[f././.N.]
0152: .WORD $1E,$508F,$2F0A,$4EBA ;[..P./.N.]
015A: .WORD $FFC8,$2052,$2468,$10 ;[.. R$h..]
0162: .WORD $588F,$200A,$6600,$FFD0 ;[X. .f...]
016A: .WORD $4CDF,$404,$4E75,$48E7 ;[L...NuH.]
0172: .WORD $3020,$206F,$10,$246F ;[0 o..$o]
017A: .WORD $14,$4240,$7400,$3028 ;[..B@t.0(]
0182: .WORD $18,$48C0,$D088,$2240 ;[..H..."@]
018A: .WORD $3611,$5243,$4241,$6026 ;[6.RCBA`&]
0192: .WORD $3001,$48C0,$E780,$CB1 ;[0.H.....]
019A: .WORD $5655,$4C54,$802,$6602 ;[VULT..f.]
01A2: .WORD $7401,$3001,$48C0,$E780 ;[t.0.H...]
01AA: .WORD $CB1,$4552,$4943,$802 ;[..ERIC..]
01B2: .WORD $6602,$7401,$5241,$B243 ;[f.t.RA.C]
01BA: .WORD $6D00,$FFD6,$7018,$B092 ;[m...p...]
01C2: .WORD $6C08,$4A82,$6704,$4EBA ;[l.J.g.N.]
01CA: .WORD $E,$4A82,$6702,$5292 ;[..J.g.R.]
01D2: .WORD $4CDF,$40C,$4E75,$48E7 ;[L...NuH.]
01DA: .WORD $8080,$A9FF,$41FA,$FF1E ;[....A...]
01E2: .WORD $90FC,$20,$4268,$A ;[... Bh..]
01EA: .WORD $204D,$D0FC,$20,$5848 ;[ M... XH]
01F2: .WORD $D0FC,$20,$7010,$690 ;[... p...]
01FA: .WORD 0,4,$D0FC,$40 ;[.......@]
0202: .WORD $51C8,$FFF4,$4CDF,$101 ;[Q...L...]
020A: .WORD $4E75,$4523,$5612,$4E75 ;[NuE#V.Nu]
0212: L0E0A .WORD $6004,0,0,$2848 ;[`.....(H]
021A: .WORD $A04A,$204C,$A029,$203A ;[.J L.) :]
0222: .WORD $FFF2,$680,2,$A300 ;[........]
022A: .WORD $B0B8,$20C,$6E04,$4EBA ;[....n.N.]
0232: .WORD $52,$4E75,$206F,4 ;[.RNu o..]
023A: .WORD $A029,$4E75,$206F,4 ;[.)Nu o..]
0242: .WORD $A02A,$4E75,$202F,$C ;[.*Nu /..]
024A: .WORD $226F,8,$206F,4 ;["o.. o..]
0252: .WORD $A02E,$4E75,$202F,4 ;[..Nu /..]
025A: .WORD $A122,$21C0,$220,$2008 ;[."!.. .]
0262: .WORD $4E75,$2038,$2A6,$4E75 ;[Nu 8..Nu]
026A: .WORD $206F,4,$A01B,$21C0 ;[ o....!.]
0272: .WORD $220,$4E75,$A11A,$21C0 ;[. Nu..!.]
027A: .WORD $220,$2008,$4E75,$4C44 ;[. .NuLD]
0282: .WORD $574D ;[WM......]
;Seg 1 = DATA ID# -4001 proc 15 of 46 (local)
0000: L0E7C LINK A6,#$FEDC
0004: BTST #$0002,$017B
000A: BEQ.S L0E94
000C: BTST #$0007,$017A
0012: BEQ.S L0E94
0014: BRA L0F14
0018: L0E94 JSR locProc16
001C: TST.L D0
001E: BEQ.S L0EA0
0020: BRA L0F14
0024: L0EA0 PEA $FFF0(A6)
0028: PEA $FFEC(A6)
002C: JSR locProc18
0030: TST.L D0
0032: ADDQ.L #8,A7
0034: BEQ.S L0EB8
0036: PEA $0005
003A: BRA.S L0F0A
003C: L0EB8 PEA $FFFC(A6)
0040: PEA $FFF8(A6)
0044: PEA $FEE6(A6)
0048: PEA $FFF4(A6)
004C: MOVE.L $FFF0(A6),-(A7)
0050: MOVE.L $FFEC(A6),-(A7)
0054: JSR locProc19
0058: TST.L D0
005A: LEA $0018(A7),A7
005E: BEQ.S L0EE2
0060: PEA $000F
0064: BRA.S L0F0A
0066: L0EE2 MOVE.L $FFFC(A6),-(A7)
006A: MOVE.L $FFF8(A6),-(A7)
006E: PEA $FEE6(A6)
0072: MOVE.L $FFF4(A6),-(A7)
0076: MOVE.L $FFF0(A6),-(A7)
007A: MOVE.L $FFEC(A6),-(A7)
007E: JSR locProc17
0082: TST.L D0
0084: LEA $0018(A7),A7
0088: BEQ.S L0F14
008A: PEA $0014
008E: L0F0A JSR locProc20
0092: MOVEQ $00,D0
0094: ADDQ.L #4,A7
0096: BRA.S L0F16
0098: L0F14 MOVEQ $00,D0
009A: L0F16 UNLK A6
009C: RTS
009E: L0F1A .WORD $48E7,$3000,$242F,$C ;[H.0.$/..]
00A6: .WORD $4EBA,$FF4A,$2600,$4EBA ;[N..J&.N.]
00AE: .WORD $FF32,$2F00,$4EBA,$FF32 ;[.2/.N..2]
00B6: .WORD $2F02,$4EBA,$FF18,$2400 ;[/.N...$.]
00BE: .WORD $2F03,$4EBA,$FF24,$4FEF ;[/.N..$O.]
00C6: .WORD $C,$2002,$4CDF,$C ;[.. .L...]
00CE: .WORD $4E75 ;[Nu......]
;Seg 1 = DATA ID# -4001 proc 16 of 46 (local)
0000: L0F4C MOVEA.L $011C,A0
0004: LEA $00B0(A0),A0
0008: TST.L (A0)
000A: BNE.S L0F5C
000C: MOVEQ $00,D0
000E: BRA.S L0F5E
0010: L0F5C MOVEQ $01,D0
0012: L0F5E RTS
;Seg 1 = DATA ID# -4001 proc 17 of 46 (local)
0000: L0F60 MOVEM.L D2-D3/A2-A4,-(A7)
0004: MOVEA.L $0018(A7),A3
0008: MOVE.L $001C(A7),D0
000C: MOVEA.L $0020(A7),A2
0010: MOVEA.L A2,A0
0012: LEA $011E(A0),A0
0016: CMP.L A0,D0
0018: BCC.S L0F80
001A: MOVEQ $02,D0
001C: BRA L1052
0020: L0F80 PEA $0028
0024: JSR L0F1A
0028: MOVE.L D0,D2
002A: PEA $0008
002E: JSR L0F1A
0032: MOVE.L D0,D3
0034: MOVE.L D2,-(A7)
0036: JSR L0E2E
003A: MOVE.L D3,-(A7)
003C: JSR L0E2E
0040: MOVEA.L D2,A4
0042: MOVE.L (A4),D1
0044: MOVEA.L D3,A4
0046: MOVE.L (A4),D0
0048: MOVEA.L D0,A4
004A: MOVE.L A2,$0004(A4)
004E: CLR.L (A2)
0050: MOVEA.L $0034(A7),A0
0054: LEA $0008(A2),A1
0058: MOVE.W (A0)+,(A1)+
005A: MOVE.W (A0)+,(A1)+
005C: MOVE.W (A0)+,(A1)+
005E: MOVE.L $0038(A7),$0012(A2)
0064: MOVE.L $003C(A7),$0016(A2)
006A: MOVEA.L D0,A4
006C: CLR.L (A4)
006E: MOVEA.L A3,A0
0070: MOVEA.L D1,A4
0072: MOVE.L A3,(A4)
0074: MOVE.W (A0),D0
0076: EXT.L D0
0078: ANDI.L #$0000FF00,D0
007E: MOVEA.L D1,A4
0080: MOVE.W D0,$0004(A4)
0084: MOVEA.L D1,A4
0086: ORI.W #$0020,$0004(A4)
008C: MOVEA.L D1,A4
008E: CLR.W $0006(A4)
0092: MOVEA.L D1,A4
0094: CLR.L $0008(A4)
0098: MOVEA.L D1,A4
009A: CLR.L $000C(A4)
009E: MOVEA.L D1,A4
00A0: CLR.L $0010(A4)
00A4: MOVEA.L D1,A4
00A6: MOVE.L D3,$0014(A4)
00AA: MOVEA.L D1,A4
00AC: MOVE.W #$FFD3,$0018(A4)
00B2: MOVEA.L D1,A4
00B4: CLR.L $001A(A4)
00B8: MOVEA.L D1,A4
00BA: CLR.L $001E(A4)
00BE: MOVEA.L D1,A4
00C0: MOVE.W $0002(A0),$0022(A4)
00C6: MOVEA.L D1,A4
00C8: MOVE.W $0004(A0),$0024(A4)
00CE: MOVEA.L D1,A4
00D0: MOVE.W $0006(A0),$0026(A4)
00D6: MOVEA.L $011C,A0
00DA: LEA $00B0(A0),A0
00DE: MOVE.L D2,(A0)
00E0: MOVE.L D2,-(A7)
00E2: JSR L0E36
00E6: MOVE.L D3,-(A7)
00E8: JSR L0E36
00EC: MOVEQ $00,D0
00EE: LEA $0018(A7),A7
00F2: L1052 MOVEM.L (A7)+,D2-D3/A2-A4
00F6: RTS
;Seg 1 = DATA ID# -4001 proc 18 of 46 (local)
0000: L1058 MOVEA.L $0004(A7),A0
0004: MOVEA.L $0008(A7),A1
0008: MOVE.L $0108,D1
000C: ASR.L #$0001,D1
000E: ADDI.L #$00000400,D1
0014: MOVE.L $010C,D0
0018: SUBI.L #$00003C00,D0
001E: CMP.L D0,D1
0020: BLT.S L107E
0022: MOVEQ $01,D1
0024: BRA.S L10A2
0026: L107E MOVE.L $010C,(A1)
002A: SUBI.L #$00003C00,$010C
0032: MOVE.L $010C,D1
0036: MOVEQ $FC,D0
0038: AND.L D0,D1
003A: MOVE.L D1,$010C
003E: MOVE.L $010C,D1
0042: MOVEQ $10,D0
0044: ADD.L D0,D1
0046: MOVE.L D1,(A0)
0048: MOVEQ $00,D1
004A: L10A2 MOVE.L D1,D0
004C: RTS
;Seg 1 = DATA ID# -4001 proc 19 of 46 (local)
0000: L10A6 MOVEM.L D2-D4/A2-A3,-(A7)
0004: MOVE.L $0018(A7),D3
0008: MOVE.L $001C(A7),D4
000C: MOVEA.L $0020(A7),A2
0010: SUBQ.L #4,A7
0012: MOVE.L #$6174706C,-(A7) ;'atpl'
0018: MOVE.W #$0080,-(A7)
001C: _GetResource
001E: MOVE.L (A7)+,D0
0020: MOVEA.L D0,A3
0022: SUBQ.L #2,A7
0024: _ResError
0026: MOVE.W (A7)+,D0
0028: EXT.L D0
002A: MOVE.W D0,D0
002C: BEQ.S L10DA
002E: MOVEQ $09,D0
0030: BRA L119C
0034: L10DA MOVE.L A3,-(A7)
0036: JSR L0E2E
003A: SUBQ.L #4,A7
003C: MOVE.L A3,-(A7)
003E: _SizeRsrc
0040: MOVE.L (A7)+,D0
0042: MOVE.L D0,D2
0044: ADDQ.L #4,A7
0046: BLT L10F8
004A: MOVE.L D2,D0
004C: ADD.L D3,D0
004E: CMP.L D0,D4
0050: BCC.S L10FE
0052: L10F8 MOVEQ $01,D0
0054: BRA L119C
0058: L10FE MOVE.L D2,-(A7)
005A: MOVE.L D3,-(A7)
005C: MOVE.L (A3),-(A7)
005E: JSR L0E3E
0062: MOVE.L D2,D0
0064: ADDQ.L #4,D0
0066: MOVEQ $FE,D1
0068: AND.L D1,D0
006A: MOVE.L D0,D2
006C: ADD.L D2,D3
006E: MOVE.L A3,-(A7)
0070: JSR L0E36
0074: MOVE.L A3,-(A7)
0076: _ReleaseResource
0078: SUBQ.L #4,A7
007A: MOVE.L #$44415441,-(A7) ;'DATA'
0080: MOVE.W #$F05F,-(A7)
0084: _GetResource
0086: MOVE.L (A7)+,D0
0088: MOVEA.L D0,A3
008A: SUBQ.L #2,A7
008C: _ResError
008E: MOVE.W (A7)+,D0
0090: EXT.L D0
0092: MOVE.W D0,D0
0094: LEA $0010(A7),A7
0098: BEQ.S L1144
009A: MOVEQ $06,D0
009C: BRA.S L119C
009E: L1144 MOVE.L A3,-(A7)
00A0: JSR L0E2E
00A4: SUBQ.L #4,A7
00A6: MOVE.L A3,-(A7)
00A8: _SizeRsrc
00AA: MOVE.L (A7)+,D0
00AC: MOVE.L D0,D2
00AE: MOVEA.L $002C(A7),A0
00B2: MOVE.L D3,(A0)
00B4: MOVEA.L $0030(A7),A0
00B8: MOVE.L D2,(A0)
00BA: TST.L D2
00BC: ADDQ.L #4,A7
00BE: BLT L1170
00C2: MOVE.L D2,D0
00C4: ADD.L D3,D0
00C6: CMP.L D0,D4
00C8: BCC.S L1174
00CA: L1170 MOVEQ $07,D0
00CC: BRA.S L119C
00CE: L1174 MOVE.L D2,-(A7)
00D0: MOVE.L D3,-(A7)
00D2: MOVE.L (A3),-(A7)
00D4: JSR L0E3E
00D8: MOVE.L D2,D0
00DA: ADDQ.L #4,D0
00DC: MOVEQ $FE,D1
00DE: AND.L D1,D0
00E0: MOVE.L D0,D2
00E2: ADD.L D2,D3
00E4: MOVE.L A3,-(A7)
00E6: JSR L0E36
00EA: MOVE.L A3,-(A7)
00EC: _ReleaseResource
00EE: MOVE.L D3,(A2)
00F0: MOVEQ $00,D0
00F2: LEA $0010(A7),A7
00F6: L119C MOVEM.L (A7)+,D2-D4/A2-A3
00FA: RTS
;Seg 1 = DATA ID# -4001 proc 20 of 46 (local)
0000: L11A2 LINK A6,#$FFE0
0004: MOVEM.L D2-D4,-(A7)
0008: MOVE.L $0008(A6),D2
000C: MOVEQ $09,D4
000E: MOVE.B #$24,$FFE3(A6) ;'$'
0014: BRA.S L11E8
0016: L11B8 MOVE.W D2,D1
0018: ANDI.W #$000F,D1
001C: MOVE.W D1,D0
001E: CMPI.W #$0009,D0
0022: BLE.S L11D2
0024: MOVE.W D4,D1
0026: SUBQ.W #1,D4
0028: MOVE.W D1,D3
002A: EXT.L D0
002C: MOVEQ $37,D1
002E: BRA.S L11DC
0030: L11D2 MOVE.W D4,D1
0032: SUBQ.W #1,D4
0034: MOVE.W D1,D3
0036: EXT.L D0
0038: MOVEQ $30,D1
003A: L11DC ADD.L D1,D0
003C: MOVE.B D0,$E2(A6,D3.W)
0040: MOVE.L D2,D0
0042: ASR.L #$0004,D0
0044: MOVE.L D0,D2
0046: L11E8 CMPI.W #$0001,D4
004A: BGT L11B8
004E: MOVE.B #$09,$FFE2(A6)
0054: PEA $FFE2(A6)
0058: UNKNOWN
005A: MOVEM.L $FFD4(A6),D2-D4
0060: UNLK A6
0062: RTS
0064: L1206 .WORD $3400,$E10,0,0 ;[4.......]
006C: .WORD $18,$1E,$24,$2A ;[.....$.*]
0074: .WORD $30,$52E,$4844,$3230 ;[.0..HD20]
007C: .WORD $487A,$40,$6016,$487A ;[Hz.@`.Hz]
0084: .WORD $4E,$6010,$487A,$70 ;[.N`.Hz.p]
008C: .WORD $600A,$487A,$56,$6004 ;[`.Hz.V`.]
0094: .WORD $487A,$11C,$48E7,$C0 ;[Hz..H...]
009C: .WORD $4267,$2F08,$2F09,$206F ;[Bg/./. o]
00A4: .WORD $12,$4E90,$301F,$4CDF ;[..N.0.L.]
00AC: .WORD $300,$584F,$828,1 ;[..XO.(..]
00B4: .WORD 6,$6604,$2F38,$8FC ;[..f./8..]
00BC: .WORD $4E75,$202F,8,$202F ;[Nu /.. /]
00C4: .WORD 4,$4240,$3F40,$C ;[..B@?@..]
00CC: .WORD $205F,$508F,$4ED0,$202F ;[ _P.N. /]
00D4: .WORD 8,$202F,4,$4240 ;[.. /..B@]
00DC: .WORD $3F40,$C,$205F,$508F ;[?@.. _P.]
00E4: .WORD $4ED0,$202F,8,$202F ;[N. /.. /]
00EC: .WORD 4,$4240,$3F40,$C ;[..B@?@..]
00F4: .WORD $205F,$508F,$4ED0,$48E7 ;[ _P.N.H.]
00FC: .WORD $30,$246F,$10,$226F ;[.0$o.."o]
0104: .WORD $C,$2069,$14,$2050 ;[.. i.. P]
010C: .WORD $2668,4,$302A,$1A ;[&h..0*..]
0114: .WORD $C40,$FFFF,$6D44,$6E02 ;[.@..mDn.]
011C: .WORD $6008,$C40,$41,$663A ;[`..@.Af:]
0124: .WORD $600A,$426B,$E,$426B ;[`.Bk..Bk]
012C: .WORD $1C,$602E,$2069,$14 ;[..`. i..]
0134: .WORD $2050,$4A90,$6618,$2069 ;[ PJ.f. i]
013C: .WORD $14,$2050,$7001,$2080 ;[.. Pp. .]
0144: .WORD $2F0B,$2F09,$4EBA,$24 ;[/./.N..$]
014C: .WORD $4240,$508F,$600E,$4A93 ;[B@P.`.J.]
0154: .WORD $6708,$2F0B,$4EBA,$6C ;[g./.N..l]
015C: .WORD $588F,$4240,$3F40,$14 ;[X.B@?@..]
0164: .WORD $4CDF,$C00,$205F,$508F ;[L... _P.]
016C: .WORD $4ED0 ;[N.......]
;Seg 1 = DATA ID# -4001 proc 21 of 46 (local)
0000: L1310 LINK A6,#$FF00
0004: MOVEA.L $0008(A6),A1
0008: MOVEA.L $000C(A6),A0
000C: MOVE.W $0018(A1),$0004(A0)
0012: MOVE.W $0018(A1),D0
0016: EXT.L D0
0018: NEG.L D0
001A: SUBQ.L #1,D0
001C: ASL.L #$0005,D0
001E: ORI.L #$0000C000,D0
0024: MOVE.W D0,$0006(A0)
0028: MOVEQ $01,D0
002A: MOVE.L D0,(A0)
002C: CLR.W $000E(A0)
0030: MOVE.W #$FFFF,$0010(A0)
0036: CLR.W $001A(A0)
003A: CLR.W $001C(A0)
003E: MOVEQ $00,D0
0040: UNLK A6
0042: RTS
0044: .WORD $202F,8,$202F,4 ;[ /.. /..]
004C: .WORD $4240,$3F40,$C,$205F ;[B@?@.. _]
0054: .WORD $508F,$4ED0,$2F0A,$246F ;[P.N./.$o]
005C: .WORD 8,$302A,$E,$6D00 ;[..0*..m.]
0064: .WORD $68,$C40,5,$6E60 ;[.h.@..n`]
006C: .WORD $D040,$303B,6,$4EFB ;[.@0;..N.]
0074: .WORD 2,$C,$14,$1C ;[........]
007C: .WORD $24,$3A,$56,$357C ;[.$.:.V5|]
0084: .WORD 1,$E,$6042,$2F0A ;[....`B/.]
008C: .WORD $4EBA,$42,$6038,$2F0A ;[N..B`8/.]
0094: .WORD $4EBA,$332,$602A,$302A ;[N..2`*0*]
009C: .WORD $1C,$526A,$1C,$C40 ;[..Rj...@]
00A4: .WORD $13,$6F24,$2F0A,$4EBA ;[..o$/.N.]
00AC: .WORD $1D8,$6014,$302A,$1C ;[..`.0*..]
00B4: .WORD $526A,$1C,$C40,$13 ;[Rj...@..]
00BC: .WORD $6F0E,$2F0A,$4EBA,$C2 ;[o./.N...]
00C4: .WORD $357C,5,$E,$588F ;[5|....X.]
00CC: .WORD $245F,$4E75 ;[$_Nu....]
;Seg 1 = DATA ID# -4001 proc 22 of 46 (local)
0000: L13E0 LINK A6,#$FE54
0004: MOVE.L A2,-(A7)
0006: MOVEA.L $0008(A6),A2
000A: CLR.L $FFCE(A6)
000E: MOVE.W $0900,$FFDA(A6)
0014: CLR.W $FFDE(A6)
0018: CLR.W $FFD8(A6)
001C: LEA $FEC2(A6),A0
0020: MOVE.L A0,$FFD4(A6)
0024: CLR.B $FEC2(A6)
0028: CLR.L -(A7)
002A: PEA $FFC2(A6)
002E: JSR locProc32
0032: TST.W $FFD2(A6)
0036: ADDQ.L #8,A7
0038: BNE L148C
003C: CLR.L $FE62(A6)
0040: MOVE.L $FFD4(A6),$FE68(A6)
0046: MOVE.L $FFFC(A6),$FE86(A6)
004C: MOVE.W $FFF6(A6),$FE6C(A6)
0052: CLR.W $FE72(A6)
0056: CLR.L -(A7)
0058: PEA $FE56(A6)
005C: JSR locProc33
0060: MOVE.W D0,D0
0062: ADDQ.L #8,A7
0064: BNE.S L148C
0066: MOVE.L $FE7A(A6),D0
006A: CMPI.L #$56554C54,D0 ;'VULT'
0070: BNE.S L1460
0072: MOVE.W #$0001,$001A(A2)
0078: MOVE.W #$0003,$000E(A2)
007E: BRA.S L1482
0080: L1460 CMPI.L #$45524943,D0 ;'ERIC'
0086: BNE.S L1476
0088: MOVE.W #$0001,$001A(A2)
008E: MOVE.W #$0004,$000E(A2)
0094: BRA.S L1482
0096: L1476 MOVE.W #$0001,$001A(A2)
009C: MOVE.W #$0002,$000E(A2)
00A2: L1482 MOVE.W $0900,$0010(A2)
00A8: CLR.W $001C(A2)
00AC: L148C MOVEA.L $FE50(A6),A2
00B0: UNLK A6
00B2: RTS
00B4: .WORD $48E7,$3820,$246F,$14 ;[H.8 $o..]
00BC: .WORD $558F,$A994,$301F,$3800 ;[U...0.8.]
00C4: .WORD $3F2A,$10,$A998,$4227 ;[?*....B']
00CC: .WORD $A99B,$7609,$7205,$2038 ;[..v.r. 8]
00D4: .WORD $20C,$4EBA,$692,$5240 ;[..N...R@]
00DC: .WORD $598F,$2F3C,$434F,$4445 ;[Y./<CODE]
00E4: .WORD $3F00,$A9A0,$201F,$2000 ;[?... . .]
00EC: .WORD $6712,$6024,$598F,$2F3C ;[g.`$Y./<]
00F4: .WORD $434F,$4445,$5343,$3F03 ;[CODESC?.]
00FC: .WORD $A9A0,$201F,$4A80,$6608 ;[.. .J.f.]
0104: .WORD $C43,1,$6E00,$FFE6 ;[.C..n...]
010C: .WORD $4A43,$6F12,$4A80,$670E ;[JCo.J.g.]
0114: .WORD $2F00,$4EBA,$1A,$3F2A ;[/.N...?*]
011C: .WORD $10,$A999,$588F,$1F3C ;[....X..<]
0124: .WORD 1,$A99B,$3F04,$A998 ;[....?...]
012C: .WORD $4CDF,$41C,$4E75,$48E7 ;[L...NuH.]
0134: .WORD $3020,$246F,$10,$1F3C ;[0 $o...<]
013C: .WORD 1,$A99B,$2F0A,$A9A2 ;[..../...]
0144: .WORD $558F,$A9AF,$301F,$48C0 ;[U...0.H.]
014C: .WORD $3000,$6600,$5E,$558F ;[0.f..^U.]
0154: .WORD $2F0A,$A9A6,$301F,$3600 ;[/...0.6.]
015C: .WORD $3003,$240,$FFF7,$2F0A ;[0..@../.]
0164: .WORD $3F00,$A9A7,$2F0A,$4EBA ;[?.../.N.]
016C: .WORD $4E8,$598F,$2F0A,$A9A5 ;[..Y./...]
0174: .WORD $201F,$E280,$2200,$2038 ;[ ...". 8]
017C: .WORD $20C,$4EBA,$5EA,$D092 ;[..N.....]
0184: .WORD $2040,$7400,$588F,$1210 ;[ @t.X...]
018C: .WORD $7000,$1001,$4680,$1080 ;[p...F...]
0194: .WORD $5282,$5288,$7006,$B082 ;[R.R.p...]
019C: .WORD $6E00,$FFEC,$2F0A,$A9AA ;[n.../...]
01A4: .WORD $2F0A,$A9B0,$2F0A,$3F03 ;[/.../.?.]
01AC: .WORD $A9A7,$4CDF,$40C,$4E75 ;[..L...Nu]
01B4: .WORD $48E7,$3C30,$246F,$1C ;[H.<0$o..]
01BC: .WORD $558F,$A994,$301F,$3800 ;[U...0.8.]
01C4: .WORD $3F2A,$10,$A998,$598F ;[?*....Y.]
01CC: .WORD $2F3C,$434F,$4445,$3F3C ;[/<CODE?<]
01D4: .WORD $D,$A9A0,$201F,$2640 ;[.... .&@]
01DC: .WORD $260B,$6610,$2F0A,$4EBA ;[&.f./.N.]
01E4: .WORD $FED0,$3F04,$A998,$588F ;[..?...X.]
01EC: .WORD $6000,$104,$1F3C,1 ;[`....<..]
01F4: .WORD $A99B,$2F0B,$A9A2,$2F0B ;[../.../.]
01FC: .WORD $4EBA,$456,$558F,$2F0B ;[N..VU./.]
0204: .WORD $A9A6,$301F,$3A00,$3005 ;[..0.:.0.]
020C: .WORD $240,$FFF7,$2F0B,$3F00 ;[.@../.?.]
0214: .WORD $A9A7,$598F,$2F0B,$A9A5 ;[..Y./...]
021C: .WORD $201F,$2600,$7202,$2038 ;[ .&.r. 8]
0224: .WORD $20C,$4EBA,$542,$2200 ;[..N..B".]
022C: .WORD $588F,$6F00,$78,$2013 ;[X.o..x .]
0234: .WORD $680,0,$472,$5C80 ;[.....r\.]
023C: .WORD $2040,$2203,$B288,$6306 ;[ @"...c.]
0244: .WORD $10FC,1,$4210,$2013 ;[....B. .]
024C: .WORD $680,0,$21DA,$5C80 ;[....!.\.]
0254: .WORD $2040,$2203,$B288,$6306 ;[ @"...c.]
025C: .WORD $4218,$10BC,2,$2013 ;[B..... .]
0264: .WORD $680,0,$21DA,$720A ;[....!.r.]
026C: .WORD $D081,$2040,$2203,$B288 ;[.. @"...]
0274: .WORD $6308,$10FC,1,$10BC ;[c.......]
027C: .WORD $C1,$2003,$E480,$2200 ;[.. ...".]
0284: .WORD $2038,$20C,$4EBA,$4E0 ;[ 8..N...]
028C: .WORD $D093,$2040,$4242,$1210 ;[.. @BB..]
0294: .WORD $7000,$1001,$4680,$1080 ;[p...F...]
029C: .WORD $5242,$5288,$C42,6 ;[RBR..B..]
02A4: .WORD $6C34,$60EA,$2003,$E280 ;[l4`. ...]
02AC: .WORD $2200,$2038,$20C,$4EBA ;[". 8..N.]
02B4: .WORD $4B6,$D093,$2040,$4242 ;[.... @BB]
02BC: .WORD $600E,$1210,$7000,$1001 ;[`...p...]
02C4: .WORD $4680,$1080,$5242,$5288 ;[F...RBR.]
02CC: .WORD $3202,$48C1,$2003,$E480 ;[2.H. ...]
02D4: .WORD $B280,$6D00,$FFE6,$2F0B ;[..m.../.]
02DC: .WORD $A9AA,$2F0B,$A9B0,$2F0B ;[../.../.]
02E4: .WORD $3F05,$A9A7,$3F2A,$10 ;[?...?*..]
02EC: .WORD $A999,$3F04,$A998,$4CDF ;[..?...L.]
02F4: .WORD $C3C,$4E75 ;[.<Nu....]
;Seg 1 = DATA ID# -4001 proc 23 of 46 (local)
0000: L16D8 LINK A6,#$FFF4
0004: MOVEM.L D2-D6/A2-A4,-(A7)
0008: MOVEA.L $0008(A6),A2
000C: MOVE.W $0010(A2),D5
0010: SUBQ.L #2,A7
0012: _CurResFile
0014: MOVE.W (A7)+,D0
0016: MOVE.W D0,$FFFE(A6)
001A: MOVE.W D5,-(A7)
001C: _UseResFile
001E: SUBQ.L #4,A7
0020: MOVE.L #$434F4445,-(A7) ;'CODE'
0026: CLR.W -(A7)
0028: _GetResource
002A: MOVE.L (A7)+,D0
002C: MOVE.L D0,D3
002E: SUBQ.L #2,A7
0030: _ResError
0032: MOVE.W (A7)+,D0
0034: EXT.L D0
0036: MOVE.W D0,D0
0038: BNE L17A2
003C: TST.L D3
003E: BEQ L17A2
0042: MOVE.L D3,-(A7)
0044: JSR locProc39
0048: SUBQ.L #4,A7
004A: MOVE.L D3,-(A7)
004C: _SizeRsrc
004E: MOVE.L (A7)+,D0
0050: MOVEA.L D3,A4
0052: MOVEA.L (A4),A0
0054: MOVE.L (A0)+,D0
0056: MOVE.L (A0)+,D0
0058: MOVE.L (A0)+,D0
005A: MOVE.L (A0)+,D0
005C: MOVEA.L A0,A3
005E: MOVEA.L A3,A0
0060: LEA $FFF6(A6),A1
0064: MOVE.L (A0)+,(A1)+
0066: MOVE.L (A0)+,(A1)+
0068: CMPI.W #$0001,$0004(A3)
006E: ADDQ.L #4,A7
0070: BNE L17A2
0074: MOVE.L $0016(A2),-(A7)
0078: MOVE.L $0012(A2),-(A7)
007C: PEA $FFF6(A6)
0080: MOVE.W D5,D0
0082: EXT.L D0
0084: MOVE.L D0,-(A7)
0086: JSR locProc24
008A: MOVE.W D0,D4
008C: LEA $0010(A7),A7
0090: BLT L17A2
0094: SUBQ.L #2,A7
0096: MOVE.L D3,-(A7)
0098: _GetResAttrs
009A: MOVE.W (A7)+,D0
009C: MOVE.W D0,D6
009E: MOVE.W D6,D0
00A0: ANDI.W #$FFF7,D0
00A4: MOVE.L D3,-(A7)
00A6: MOVE.W D0,-(A7)
00A8: _SetResAttrs
00AA: MOVE.W D4,$0004(A3)
00AE: MOVE.W #$0008,(A3)
00B2: MOVE.L D3,-(A7)
00B4: _ChangedResource
00B6: MOVE.L D3,-(A7)
00B8: _WriteResource
00BA: MOVE.L D3,-(A7)
00BC: MOVE.W D6,-(A7)
00BE: _SetResAttrs
00C0: MOVE.W D5,-(A7)
00C2: _UpdateResFile
00C4: MOVE.W $FFFE(A6),-(A7)
00C8: _UseResFile
00CA: L17A2 MOVEM.L $FFD4(A6),D2-D6/A2-A4
00D0: UNLK A6
00D2: RTS
;Seg 1 = DATA ID# -4001 proc 24 of 46 (local)
0000: L17AC LINK A6,#$FFF4
0004: MOVEM.L D2-D6/A2-A3,-(A7)
0008: MOVE.W $000A(A6),D3
000C: MOVEA.L $000C(A6),A2
0010: MOVE.L $0010(A6),D0
0014: MOVE.L D0,D6
0016: CLR.B -(A7)
0018: _SetResLoad
001A: MOVEQ $00,D5
001C: L17C8 SUBQ.L #4,A7
001E: MOVE.L #$434F4445,-(A7) ;'CODE'
0024: MOVE.W D5,-(A7)
0026: _GetResource
0028: MOVE.L (A7)+,D0
002A: MOVE.L D0,D4
002C: BEQ.S L17EA
002E: SUBQ.L #2,A7
0030: MOVE.L D4,-(A7)
0032: _HomeResFile
0034: MOVE.W (A7)+,D0
0036: MOVE.W D0,D1
0038: CMP.W D0,D3
003A: BNE L17F8
003E: L17EA ADDQ.L #1,D5
0040: TST.L D4
0042: BEQ.S L17F8
0044: MOVEQ $64,D0
0046: CMP.L D5,D0
0048: BGT L17C8
004C: L17F8 MOVE.B #$01,-(A7)
0050: _SetResLoad
0052: TST.L D4
0054: BEQ.S L1808
0056: MOVEQ $FF,D0
0058: BRA L188E
005C: L1808 MOVE.L $0014(A6),-(A7)
0060: JSR locProc35
0064: MOVEA.L D0,A3
0066: MOVE.L A3,-(A7)
0068: JSR locProc39
006C: CLR.B $FFF6(A6)
0070: MOVEA.L D6,A0
0072: ADDQ.L #4,A0
0074: MOVEA.L A0,A1
0076: MOVEA.L A2,A0
0078: MOVE.L (A0)+,(A1)+
007A: MOVE.L (A0)+,(A1)+
007C: MOVE.L $0014(A6),-(A7)
0080: MOVE.L (A3),-(A7)
0082: MOVE.L D6,-(A7)
0084: JSR locProc41
0088: PEA $FFF6(A6)
008C: MOVE.W D5,D0
008E: EXT.L D0
0090: MOVE.L D0,-(A7)
0092: MOVE.L #$434F4445,-(A7) ;'CODE'
0098: MOVE.L A3,-(A7)
009A: JSR locProc44
009E: SUBQ.L #2,A7
00A0: _ResError
00A2: MOVE.W (A7)+,D0
00A4: EXT.L D0
00A6: MOVE.W D0,D0
00A8: LEA $0024(A7),A7
00AC: BEQ.S L1874
00AE: PEA $FFF6(A6)
00B2: MOVE.W D5,D0
00B4: EXT.L D0
00B6: MOVE.L D0,-(A7)
00B8: MOVE.L #$434F4445,-(A7) ;'CODE'
00BE: MOVE.L A3,-(A7)
00C0: JSR locProc44
00C4: LEA $0010(A7),A7
00C8: L1874 MOVE.L A3,-(A7)
00CA: _ChangedResource
00CC: MOVE.L A3,-(A7)
00CE: _WriteResource
00D0: MOVE.L A3,-(A7)
00D2: MOVE.W #$0020,-(A7)
00D6: _SetResAttrs
00D8: MOVE.L A3,-(A7)
00DA: JSR locProc40
00DE: MOVE.L D5,D0
00E0: ADDQ.L #4,A7
00E2: L188E MOVEM.L $FFD8(A6),D2-D6/A2-A3
00E8: UNLK A6
00EA: RTS
;Seg 1 = DATA ID# -4001 proc 25 of 46 (local)
0000: L1898 JSR locProc30
0004: LINK A6,#$FFC0
0008: LEA $FFC0(A6),A0
000C: MOVE.L $0008(A6),$0012(A0)
0012: MOVE.W $000E(A6),$0016(A0)
0018: _SetVol
001A: JMP L197A
;Seg 1 = DATA ID# -4001 proc 26 of 46 (local)
0000: L18B6 JSR locProc30
0004: LINK A6,#$FFC0
0008: LEA $FFC0(A6),A0
000C: MOVE.W $000E(A6),$0016(A0)
0012: MOVE.L $0008(A6),$0012(A0)
0018: _FlushVol
001A: JMP L197A
;Seg 1 = DATA ID# -4001 proc 27 of 46 (local)
0000: L18D4 MOVE.L $0004(A7),D0
0004: MOVE.L D0,D1
0006: MOVEA.L $034E,A0
000A: CMP.W (A0),D1
000C: BCC.S L18EE
000E: MOVEA.L $14(A0,D1.W),A0
0012: MOVE.W $004E(A0),D1
0016: MOVEQ $00,D0
0018: BRA.S L18F4
001A: L18EE MOVEQ $00,D1
001C: MOVE.W #$FFCD,D0
0020: L18F4 MOVEA.L $0008(A7),A0
0024: MOVE.W D1,(A0)
0026: RTS
;Seg 1 = DATA ID# -4001 proc 28 of 46 (local)
0000: L18FC JSR locProc30
0004: LINK A6,#$FFB0
0008: LEA $FFB0(A6),A0
000C: MOVE.L $0008(A6),$0012(A0)
0012: MOVE.W $000E(A6),$0016(A0)
0018: CLR.B $001A(A0)
001C: CLR.W $001C(A0)
0020: _GetFileInfo
0022: MOVE.W D0,-(A7)
0024: LEA $0020(A0),A0
0028: MOVEA.L $0010(A6),A1
002C: MOVEQ $10,D0
002E: _BlockMove
0030: LEA $FFB0(A6),A0
0034: MOVE.W (A7)+,D0
0036: JMP L197A
;Seg 1 = DATA ID# -4001 proc 29 of 46 (local)
0000: L1936 JSR locProc30
0004: LINK A6,#$FFB0
0008: LEA $FFB0(A6),A0
000C: MOVE.L $0008(A6),$0012(A0)
0012: MOVE.W $000E(A6),$0016(A0)
0018: CLR.B $001A(A0)
001C: CLR.W $001C(A0)
0020: _GetFileInfo
0022: LEA $0020(A0),A1
0026: MOVEA.L $0010(A6),A0
002A: MOVEQ $10,D0
002C: _BlockMove
002E: LEA $FFB0(A6),A0
0032: _SetFileInfo
0034: JMP L197A
;Seg 1 = DATA ID# -4001 proc 30 of 46 (local)
0000: L196E MOVE.L $0008(A7),-(A7)
0004: JSR locProc45
0008: ADDQ.W #4,A7
000A: RTS
000C: L197A .WORD $3F00,$2F28,$12,$4EBA ;[?./(..N.]
0014: .WORD $16A,$584F,$301F,$48C0 ;[.jXO0.H.]
001C: .WORD $4E5E,$4E75 ;[N^Nu....]
;Seg 1 = DATA ID# -4001 proc 31 of 46 (local)
0000: L198E MOVEA.L $0004(A7),A0
0004: MOVE.L $0008(A7),D0
0008: BNE.S L199E
000A: MOVEQ $01,D0
000C: _SPECIAL_HFS
000E: BRA.S L19A2
0010: L199E MOVEQ $01,D0
0012: _SPECIAL_HFS
0014: L19A2 EXT.L D0
0016: RTS
;Seg 1 = DATA ID# -4001 proc 32 of 46 (local)
0000: L19A6 MOVEA.L $0004(A7),A0
0004: MOVE.L $0008(A7),D0
0008: BNE.S L19B6
000A: MOVEQ $08,D0
000C: _SPECIAL_HFS
000E: BRA.S L19BA
0010: L19B6 MOVEQ $08,D0
0012: _SPECIAL_HFS
0014: L19BA EXT.L D0
0016: RTS
;Seg 1 = DATA ID# -4001 proc 33 of 46 (local)
0000: L19BE MOVEA.L $0004(A7),A0
0004: CLR.B $001A(A0)
0008: MOVEA.L $0004(A7),A0
000C: MOVE.L $0008(A7),D0
0010: BNE.S L19D6
0012: MOVEQ $09,D0
0014: _SPECIAL_HFS
0016: BRA.S L19DA
0018: L19D6 MOVEQ $09,D0
001A: _SPECIAL_HFS
001C: L19DA EXT.L D0
001E: RTS
;Seg 1 = DATA ID# -4001 proc 34 of 46 (local)
0000: L19DE MOVEA.L $0004(A7),A0
0004: MOVE.L $0008(A7),D0
0008: BNE.S L19EC
000A: _HGetVInfo
000C: BRA.S L19EE
000E: L19EC _HGetVInfo
0010: L19EE EXT.L D0
0012: RTS
0014: L19F2 .WORD $7000,$31C0,$220,$2008 ;[p.1.. .]
001C: .WORD $4E75 ;[Nu......]
;Seg 1 = DATA ID# -4001 proc 35 of 46 (local)
0000: L19FC MOVE.L $0004(A7),D0
0004: _NewHandle
0006: JMP L19F4
;Seg 1 = DATA ID# -4001 proc 36 of 46 (local)
0000: L1A06 MOVEA.L $0004(A7),A0
0004: _GetHandleSize
0006: TST.L D0
0008: BPL.S L1A16
000A: SUBA.W A0,A0
000C: JMP L19F4
0010: L1A16 MOVEA.L D0,A0
0012: JMP L19F2
;Seg 1 = DATA ID# -4001 proc 37 of 46 (local)
0000: L1A1C MOVE.L $0008(A7),D0
0004: MOVEA.L $0004(A7),A0
0008: _SetHandleSize
000A: JMP L19F4
;Seg 1 = DATA ID# -4001 proc 38 of 46 (local)
0000: L1A2A MOVEA.L $0004(A7),A0
0004: _RecoverHandle
0006: JMP L19F2
;Seg 1 = DATA ID# -4001 proc 39 of 46 (local)
0000: L1A34 MOVEA.L $0004(A7),A0
0004: _HLock
0006: JMP L19F4
;Seg 1 = DATA ID# -4001 proc 40 of 46 (local)
0000: L1A3E MOVEA.L $0004(A7),A0
0004: _HUnLock
0006: JMP L19F4
;Seg 1 = DATA ID# -4001 proc 41 of 46 (local)
0000: L1A48 MOVE.L $000C(A7),D0
0004: MOVEA.L $0008(A7),A1
0008: MOVEA.L $0004(A7),A0
000C: _BlockMove
000E: JMP L19F4
;Seg 1 = DATA ID# -4001 proc 42 of 46 (local)
0000: L1A5A MOVE.L D2,-(A7)
0002: MOVE.L $0008(A7),-(A7)
0006: JSR locProc45
000A: _CreateResFile
000C: MOVE.L $0008(A7),-(A7)
0010: JSR locProc46
0014: ADDQ.W #4,A7
0016: MOVE.L (A7)+,D2
0018: RTS
;Seg 1 = DATA ID# -4001 proc 43 of 46 (local)
0000: L1A74 MOVE.L D2,-(A7)
0002: CLR.W -(A7)
0004: MOVE.L $000A(A7),-(A7)
0008: JSR locProc45
000C: _OpenResFile
000E: MOVE.L $000A(A7),-(A7)
0012: JSR locProc46
0016: ADDQ.W #4,A7
0018: MOVE.W (A7)+,D0
001A: EXT.L D0
001C: MOVE.L (A7)+,D2
001E: RTS
;Seg 1 = DATA ID# -4001 proc 44 of 46 (local)
0000: L1A94 MOVE.L D2,-(A7)
0002: MOVE.L $0008(A7),-(A7)
0006: MOVE.L $0010(A7),-(A7)
000A: MOVE.W $001A(A7),-(A7)
000E: MOVE.L $001E(A7),-(A7)
0012: JSR locProc45
0016: _AddResource
0018: MOVE.L $0014(A7),-(A7)
001C: JSR locProc46
0020: ADDQ.W #4,A7
0022: MOVE.L (A7)+,D2
0024: RTS
;Seg 1 = DATA ID# -4001 proc 45 of 46 (local)
0000: L1ABA MOVE.L $0004(A7),D0
0004: BEQ.S L1AE6
0006: MOVEA.L D0,A0
0008: MOVEA.L A0,A1
000A: MOVE.B (A1)+,D0
000C: BEQ.S L1AE6
000E: L1AC8 MOVE.B (A1),D1
0010: MOVE.B D0,(A1)+
0012: MOVE.B D1,D0
0014: BNE.S L1AC8
0016: SUBA.L A0,A1
0018: MOVE.L A1,D0
001A: SUBQ.W #1,D0
001C: CMPI.L #$000000FF,D0
0022: BLE.S L1AE4
0024: MOVE.L #$000000FF,D0
002A: L1AE4 MOVE.B D0,(A0)
002C: L1AE6 MOVE.L $0004(A7),D0
0030: RTS
;Seg 1 = DATA ID# -4001 proc 46 of 46 (local)
0000: L1AEC MOVE.L $0004(A7),D0
0004: BEQ.S L1B04
0006: MOVEA.L D0,A0
0008: MOVEQ $00,D0
000A: MOVE.B (A0),D0
000C: BRA.S L1AFE
000E: L1AFA MOVE.B $0001(A0),(A0)+
0012: L1AFE DBRA D0,L1AFA
0016: CLR.B (A0)
0018: L1B04 MOVE.L $0004(A7),D0
001C: RTS
001E: .WORD $C82,0,$FFFF,$6218 ;[......b.]
0026: .WORD $3241,$4241,$4841,$82C2 ;[2ABAHA..]
002E: .WORD $2001,$4841,$3009,$80C2 ;[ .HA0...]
0036: .WORD $3200,$4240,$4840,$4E75 ;[2.B@H@Nu]
003E: .WORD $2001,$4240,$4840,$4841 ;[ .B@H@HA]
0046: .WORD $4241,$2242,$740F,$D281 ;[BA"Bt...]
004E: .WORD $D180,$B3C0,$6204,$9089 ;[....b...]
0056: .WORD $5241,$51CA,$FFF2,$4E75 ;[RAQ...Nu]
005E: .WORD $2F02,$2401,$2200,$4A82 ;[/.$.".J.]
0066: .WORD $6C02,$4482,$7000,$4A81 ;[l.D.p.J.]
006E: .WORD $6C04,$4481,$4680,$2040 ;[l.D.F. @]
0076: .WORD $4EBA,$FFA6,$3408,$6702 ;[N...4.g.]
007E: .WORD $4480,$241F,$4E75,$4E75 ;[D.$.NuNu]